home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO018.dsk
/
APPLE.VISION.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
24 lines
100 REM *** APPLE-VISION *** WRITTEN BY R.J. BISHOP
110 LOMEM: 16384: CLEAR
120 PRINT CHR$(21): TEXT : HOME
130 VTAB 10: HTAB 10: PRINT "*** APPLE-VISION ***"
140 VTAB 20: HTAB 3: PRINT "COPYRIGHT 1978 APPLE COMPUTER, INC."
150 D$ = CHR$(4): ONERR GOTO 280
160 PRINT D$"BLOAD APPLE.V.CODE"
170 PRINT D$"BLOAD APPLE.V.ROOM"
180 HOME :G = 49232: POKE G +7,0: POKE G +2,0: POKE G,0
190 POKE 48688,0: POKE 48689,11
200 GOSUB 320: VTAB 4: HTAB 25: PRINT "HOME": HTAB 27: PRINT "SWEET": HTAB 30: PRINT "HOME": GOSUB 320
210 A$ = " BOB BISHOP PRESENTS ... APPLE-VISION! "
220 FOR K = 1 TO 45: VTAB 13: HTAB 12: PRINT MID$ (A$,K,7): FOR J = 1 TO 100: NEXT J,K: GOSUB 320
230 CALL 2893
240 GOSUB 330: VTAB 13: HTAB 13: PRINT "THE": HTAB 15: PRINT "END": GOSUB 310: VTAB 13: HTAB 13: PRINT " ": HTAB 15: PRINT " "
250 FOR J = 1 TO 5: IF PEEK(49152) <128 THEN GOSUB 330
260 NEXT
270 IF PEEK(49152) <128 GOTO 220
280 POKE 216,0
290 POKE 49168,0: PRINT CHR$(4)"PR#0": TEXT
300 PRINT CHR$(4)"-STARTUP"
310 GOSUB 330
320 GOSUB 330
330 FOR K = 1 TO 500: NEXT : RETURN